home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
pcboard
/
depos111.zip
/
DEPOSIT.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-04-01
|
14KB
|
861 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Date DATE001
Date DATE002
Date DATE003
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
Integer INTEGER015
Integer INTEGER016
Integer INTEGER017
Integer INTEGER018
Integer INTEGER019
Integer INTEGER020
Integer INTEGER021
Integer INTEGER022
Integer INTEGER023
Integer INTEGER024
Integer INTEGER025
Integer INTEGER026
Integer INTEGER027
Integer INTEGER028
Integer INTEGER029
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String TSTRING021(6)
String STRING022
String STRING023
String STRING024
String STRING025
String STRING026
String STRING027
String STRING028
String STRING029
String STRING030
String STRING031
;------------------------------------------------------------------------------
STRING017 = 1.11
Log "Opened Depository PPE", 1
CdChkOn
Cls
STRING008 = GetEnv("PCB_PWRD")
If (STRING008 == "") Then
STRING030 = "Environment Variable was not set. Please tell Sysop."
Log "PCB_PWRD environment variable not set.. ", 0
ElseIf (Exist(STRING008) == 0) Then
STRING030 = "File associated with environmet not found. Please tell Sysop."
Log "PCB_PWRD Environment variable " + STRING008 + " was not found!", 0
Else
FOpen 1, STRING008, 0, 0
FGet 1, STRING023
FClose 1
INTEGER022 = Len(STRING023)
STRING031 = 0
While (STRING031 < INTEGER022) Do
STRING031 = STRING031 + 1
If (Mid(STRING023, STRING031, 1) == ",") Then
INTEGER017 = INTEGER017 + 1
Endif
EndWhile
If (INTEGER017 < 7) Then
Log "PWRD file is not the correct format.", 0
Log "Please check that the FORMAT is 15.x extended format.", 0
STRING030 = "Please tell SYSOP that the PWRD file has incorrect format."
Else
GetUser
Cls
INTEGER004 = U_PageLen
If (INTEGER004 <> 25) Then
U_PageLen = 25
PutUser
Endif
STRING020 = PPEPath()
STRING020 = STRING020 + "INTRO.PCB"
INTEGER014 = 1
TSTRING021(INTEGER014) = STRING020
Gosub LABEL012
DispFile TSTRING021(INTEGER014), 0
AnsiPos 14, 22
PrintLn "@X0E(c)1993,96 PRACTICAL COMPUTER SERVICES (609) 587-2672@X07"
AnsiPos 5, 23
Print "@X0DThis software is Unregistered!@X0E Please ask@X8F YOUR SYSOP@X0E to Register it!@X07"
Delay 50
GetUser
STRING025 = PPEPath()
STRING025 = STRING025 + "DEPOSIT.CFG"
FOpen 1, STRING025, 0, 0
INTEGER014 = 1
TSTRING021(INTEGER014) = STRING025
Gosub LABEL012
FGet 1, STRING006
FGet 1, STRING007
FGet 1, INTEGER005
FGet 1, INTEGER006
FClose 1
STRING008 = GetEnv("PCB_PWRD")
If (STRING008 == "") Stop
If (Exist(STRING008) == 0) Stop
STRING001 = U_Sec
FOpen 1, STRING008, 0, 0
INTEGER013 = 0
While (INTEGER013 == 0) Do
FGet 1, STRING019
STRING024 = Mid(STRING019, 1, 5)
If (InStr(STRING024, STRING001) > 0) Then
INTEGER017 = 0
INTEGER018 = 0
While (INTEGER017 <= 2) Do
STRING022 = Mid(STRING019, INTEGER018, 1)
If (STRING022 == ",") Then
INTEGER017 = INTEGER017 + 1
Endif
INTEGER018 = INTEGER018 + 1
EndWhile
INTEGER019 = INTEGER018
INTEGER017 = 0
While (INTEGER017 < 1) Do
STRING022 = Mid(STRING019, INTEGER018, 1)
If (STRING022 == ",") Then
INTEGER017 = INTEGER017 + 1
Endif
INTEGER018 = INTEGER018 + 1
EndWhile
INTEGER020 = INTEGER018 - 1
INTEGER021 = INTEGER020 - INTEGER019
STRING002 = Mid(STRING019, INTEGER019, INTEGER021)
If (STRING002 == "32767") Then
STRING002 = "UNLIMITED"
Goto LABEL001
Endif
STRING002 = STRING002 * 1024
:LABEL001
INTEGER013 = 1
Endif
EndWhile
FClose 1
If (STRING002 == "UNLIMITED") Then
STRING003 = STRING002
Else
INTEGER022 = STRING002
INTEGER022 = INTEGER022 - U_BdlDay()
STRING003 = INTEGER022
Endif
INTEGER019 = 0
INTEGER020 = 0
INTEGER013 = 0
STRING025 = STRING008
INTEGER014 = 1
TSTRING021(INTEGER014) = STRING025
Gosub LABEL012
FOpen 1, STRING008, 0, 0
While (INTEGER013 == 0) Do
FGet 1, STRING019
STRING024 = Mid(STRING019, 1, 5)
If (InStr(STRING024, STRING001) > 0) Then
INTEGER017 = 0
INTEGER018 = 0
While (INTEGER017 <= 5) Do
STRING022 = Mid(STRING019, INTEGER018, 1)
If (STRING022 == ",") Then
INTEGER017 = INTEGER017 + 1
Endif
INTEGER018 = INTEGER018 + 1
EndWhile
INTEGER019 = INTEGER018
INTEGER017 = 0
While (INTEGER017 < 1) Do
STRING022 = Mid(STRING019, INTEGER018, 1)
If (STRING022 == ",") Then
INTEGER017 = INTEGER017 + 1
Endif
INTEGER018 = INTEGER018 + 1
EndWhile
INTEGER020 = INTEGER018 - 1
INTEGER021 = INTEGER020 - INTEGER019
STRING023 = Mid(STRING019, INTEGER019, INTEGER021)
INTEGER022 = STRING023
INTEGER022 = INTEGER022 / 10
STRING023 = INTEGER022
If (STRING023 == "0") Then
STRING005 = "NA"
Goto LABEL002
Endif
STRING005 = "1:" + STRING023
:LABEL002
INTEGER013 = 1
Endif
EndWhile
FClose 1
FClose 1
INTEGER002 = U_Ful()
INTEGER003 = U_Fdl()
If (INTEGER002 > INTEGER003) Then
INTEGER025 = INTEGER002 / INTEGER003
STRING023 = INTEGER025
STRING004 = STRING023 + ":1"
Endif
If (INTEGER003 > INTEGER002) Then
INTEGER025 = INTEGER003 / INTEGER002
STRING023 = INTEGER025
STRING004 = "1:" + STRING023
Endif
If (INTEGER003 == INTEGER002) Then
STRING004 = "1:1"
Endif
INTEGER013 = 0
STRING025 = PPEPath()
STRING025 = STRING025 + "DEPOSIT.NDX"
FOpen 1, STRING025, 0, 0
While (INTEGER013 == 0) Do
If (INTEGER013 == 0) FGet 1, STRING019
If (STRING019 <> "") Then
INTEGER022 = InStr(STRING019, "/")
INTEGER024 = Len(STRING019)
STRING023 = Mid(STRING019, INTEGER022 + 1, INTEGER024 - INTEGER022)
INTEGER011 = STRING023
STRING023 = Mid(STRING019, 1, INTEGER022 - 1)
STRING014 = U_Name()
If (InStr(STRING023, STRING014) > 0) Then
INTEGER013 = 1
STRING025 = PPEPath()
STRING025 = STRING025 + "DEPOSIT.DAT"
FOpen 2, STRING025, 0, 0
INTEGER026 = 0
INTEGER017 = 0
While (INTEGER026 == 0) Do
FGet 2, STRING019
If (STRING019 == "") INTEGER026 = 1
INTEGER017 = INTEGER017 + 1
If (INTEGER017 == INTEGER011) Then
INTEGER026 = 1
Endif
EndWhile
STRING014 = STRING019
FGet 2, STRING019
DATE001 = STRING019
FGet 2, STRING019
DATE002 = STRING019
FGet 2, STRING019
DATE003 = STRING019
FGet 2, STRING019
INTEGER007 = STRING019
FGet 2, STRING019
INTEGER008 = STRING019
FGet 2, STRING019
STRING015 = STRING019
FGet 2, STRING019
STRING016 = STRING019
FGet 2, STRING019
INTEGER009 = STRING019
FGet 2, STRING019
INTEGER010 = STRING019
FGet 2, STRING019
STRING012 = STRING019
FGet 2, STRING019
STRING013 = STRING019
INTEGER013 = 1
FClose 2
Endif
Continue
Endif
FClose 1
Gosub LABEL010
INTEGER013 = 1
EndWhile
If (DATE001 <> Date()) Then
STRING012 = "0"
STRING013 = "0"
Endif
INTEGER028 = STRING012
INTEGER029 = STRING013
Gosub LABEL011
:LABEL003
AnsiPos 24, 7
STRING023 = MinLeft()
Print "@X70" + STRING023 + "@X07"
AnsiPos 28, 23
InputStr "@X0EEnter your choice@X07 ", STRING026, 4, 1, "QDWEqdwe", 32
If (Upper(STRING026) == "Q") Goto LABEL004
If (Upper(STRING026) == "D") Then
Gosub LABEL005
Goto LABEL003
Endif
If (Upper(STRING026) == "W") Then
Gosub LABEL007
Goto LABEL003
Endif
If (Upper(STRING026) == "E") Then
Gosub LABEL009
Goto LABEL003
Endif
Goto LABEL003
Endif
Endif
Cls
If (STRING030 > "") Then
PrintLn STRING030
Endif
FClose 1
FClose 2
FClose 3
FClose 4
Stop
:LABEL004
FClose 1
FClose 2
FClose 3
FClose 4
Gosub LABEL013
GetUser
INTEGER022 = MinLeft()
If (INTEGER022 < 1) Bye
Cls
End
:LABEL005
AnsiPos 14, 23
InputStr "Deposit @X0E(B)@X03ytes, @X0E(T)@X03ime, or @X0E(Q)@X03uit back to menu ", STRING026, 3, 1, "BTQbtq", 32
If (Upper(STRING026) == "Q") Goto LABEL003
If (Upper(STRING026) == "B") Then
AnsiPos 15, 23
InputStr "@X0EInput Byte amount you wish to Deposit@X07 ", STRING026, 4, 10, "9876543210", 32
AnsiPos 15, 23
InputStr "@X0EAre you sure you wish to deposit " + STRING026 + " Bytes@X07 ", STRING028, 4, 1, "YyNn", 32
If (Upper(STRING028) == "Y") Then
INTEGER022 = STRING002
If (STRING002 == "UNLIMITED") INTEGER022 = 0
INTEGER022 = INTEGER022 - U_BdlDay()
If (INTEGER022 < 1) Then
AnsiPos 5, 23
InputStr "Value entered is larger than Bytes remaining. Hit enter to continue.", STRING026, 9, 1, "", 32
Goto LABEL005
Endif
INTEGER023 = STRING026
If (INTEGER023 > INTEGER022) Then
AnsiPos 5, 23
InputStr "Value entered is larger than Bytes remaining. Hit enter to continue.", STRING026, 9, 1, "", 32
Goto LABEL005
Endif
DATE002 = Date()
INTEGER007 = STRING026
INTEGER028 = INTEGER028 - INTEGER007
STRING015 = "BYTE"
INTEGER010 = INTEGER010 + INTEGER007
STRING020 = PPEPath()
STRING020 = STRING020 + "USYSUPD.EXE"
WrUSys
Shell 1, STRING027, STRING020, INTEGER007
RdUSys
PutUser
GetUser
If (STRING002 == "UNLIMITED") Then
STRING003 = STRING002
Goto LABEL006
Endif
INTEGER022 = STRING002
INTEGER022 = INTEGER022 - U_BdlDay()
STRING003 = INTEGER022
:LABEL006
Gosub LABEL011
Endif
Goto LABEL005
Endif
If (Upper(STRING026) == "T") Then
AnsiPos 5, 23
INTEGER022 = MinLeft()
STRING023 = INTEGER022
InputStr "@X0EYou have " + STRING023 + " available. Input Time amount you wish to Deposit@X07 ", STRING026, 4, 10, "9876543210", 32
AnsiPos 15, 23
InputStr "@X0EAre you sure you wish to deposit " + STRING026 + " Time@X07 ", STRING028, 4, 1, "YyNn", 32
If (Upper(STRING028) == "Y") Then
INTEGER027 = STRING026
INTEGER022 = MinLeft()
If (INTEGER027 > INTEGER022) Then
AnsiPos 5, 23
InputStr "Value entered is more than the time remaining. Hit enter to continue.", STRING026, 9, 1, "", 32
Goto LABEL003
Endif
DATE002 = Date()
INTEGER007 = STRING026
STRING015 = "TIME"
INTEGER009 = INTEGER009 + INTEGER007
INTEGER027 = INTEGER027 * -1
AdjTime INTEGER027
INTEGER029 = INTEGER029 - INTEGER007
Cls
Gosub LABEL011
Endif
Goto LABEL005
Endif
:LABEL007
AnsiPos 13, 23
InputStr "Withdraw @X0E(B)@X03ytes, @X0E(T)@X03ime, or @X0E(Q)@X03uit back to menu ", STRING026, 3, 1, "BTQbtq", 32
If (Upper(STRING026) == "Q") Goto LABEL003
If (Upper(STRING026) == "B") Then
AnsiPos 15, 23
InputStr "@X0EInput Byte amount you wish to Withdraw@X07 ", STRING026, 4, 10, "9876543210", 32
AnsiPos 15, 23
InputStr "@X0EAre you sure you wish to withdraw " + STRING026 + " Bytes@X07 ", STRING028, 4, 1, "YyNn", 32
If (Upper(STRING028) == "Y") Then
INTEGER027 = STRING026
If (INTEGER027 > INTEGER010) Then
AnsiPos 5, 23
InputStr "Value entered is more than Bytes saved. Hit enter to continue.", STRING026, 9, 1, "", 32
Goto LABEL007
Endif
If (INTEGER027 > STRING007) Then
AnsiPos 1, 23
InputStr "Value entered is more than Maximum Bytes allowed . Hit enter to continue.", STRING026, 9, 1, "", 32
Goto LABEL007
Endif
INTEGER022 = INTEGER028 + INTEGER027
If (INTEGER022 > STRING007) Then
AnsiPos 1, 23
InputStr "Value entered is more than Maximum Bytes allowed . Hit enter to continue.", STRING026, 9, 1, "", 32
Goto LABEL007
Endif
DATE003 = Date()
INTEGER008 = INTEGER027
STRING016 = "BYTE"
INTEGER010 = INTEGER010 - INTEGER008
INTEGER022 = INTEGER008 * -1
INTEGER028 = INTEGER028 + INTEGER008
STRING020 = PPEPath()
STRING020 = STRING020 + "USYSUPD.EXE"
WrUSys
Shell 1, STRING027, STRING020, INTEGER022
RdUSys
PutUser
GetUser
If (STRING002 == "UNLIMITED") Then
STRING003 = STRING002
Goto LABEL008
Endif
INTEGER022 = STRING002
INTEGER022 = INTEGER022 - U_BdlDay()
STRING003 = INTEGER022
:LABEL008
Gosub LABEL011
Endif
Goto LABEL007
Endif
If (Upper(STRING026) == "T") Then
AnsiPos 5, 23
INTEGER022 = MinLeft()
STRING023 = INTEGER022
InputStr "@X0EInput Time amount you wish to Withdraw@X07 ", STRING026, 4, 10, "9876543210", 32
AnsiPos 15, 23
InputStr "@X0EAre you sure you wish to withdraw " + STRING026 + " Time@X07 ", STRING028, 4, 1, "YyNn", 32
If (Upper(STRING028) == "Y") Then
INTEGER027 = STRING026
If (INTEGER009 < INTEGER027) Then
AnsiPos 5, 23
InputStr "Value entered is more than time saved. Hit enter to continue.", STRING026, 9, 1, "", 32
Goto LABEL007
Endif
If (INTEGER027 > STRING006) Then
AnsiPos 1, 23
InputStr "Value entered is more than Maximum Time allowed . Hit enter to continue.", STRING026, 9, 1, "", 32
Goto LABEL007
Endif
INTEGER022 = INTEGER029 + INTEGER027
If (INTEGER022 > STRING006) Then
AnsiPos 1, 23
InputStr "Value entered is more than Maximum Time allowed . Hit enter to continue.", STRING026, 9, 1, "", 32
Goto LABEL007
Endif
DATE003 = Date()
INTEGER008 = STRING026
STRING016 = "TIME"
INTEGER009 = INTEGER009 - INTEGER008
AdjTime INTEGER008
INTEGER029 = INTEGER029 + INTEGER008
Cls
Gosub LABEL011
Endif
Goto LABEL007
Endif
Goto LABEL007
:LABEL009
AnsiPos 13, 23
InputStr "Exchange @X0E(B)@X03ytes, @X0E(T)@X03ime, or @X0E(Q)@X03uit back to menu ", STRING026, 3, 1, "BTQbtq", 32
If (Upper(STRING026) == "Q") Goto LABEL003
If (Upper(STRING026) == "B") Then
AnsiPos 10, 23
STRING023 = INTEGER006
InputStr "@X0EInput Byte amount to Exchange, in increments of@X07 " + STRING023, STRING026, 4, 10, "9876543210", 32
AnsiPos 15, 23
InputStr "@X0EAre you sure you wish to exchange " + STRING026 + " Bytes@X07 ", STRING028, 4, 1, "YyNn", 32
If (Upper(STRING028) == "Y") Then
INTEGER027 = STRING026
If (INTEGER027 > INTEGER010) Then
AnsiPos 5, 23
InputStr "Value entered is more than Bytes saved. Hit enter to continue.", STRING026, 9, 1, "", 32
Goto LABEL009
Endif
If (INTEGER027 > STRING007) Then
AnsiPos 1, 23
InputStr "Value entered is more than Maximum Bytes allowed . Hit enter to continue.", STRING026, 9, 1, "", 32
Goto LABEL007
Endif
If (INTEGER027 < INTEGER006) Then
AnsiPos 1, 23
InputStr "Value entered is less than then minimum value of " + STRING023 + ". Hit enter to continue.", STRING026, 9, 1, "", 32
Goto LABEL007
Endif
DATE003 = Date()
INTEGER008 = INTEGER027
STRING016 = "BYTE"
INTEGER010 = INTEGER010 - INTEGER008
INTEGER022 = INTEGER027 / INTEGER006
INTEGER022 = INTEGER022 * INTEGER005
DATE002 = Date()
INTEGER007 = INTEGER022
STRING015 = "TIME"
INTEGER009 = INTEGER009 + INTEGER007
Gosub LABEL011
Endif
Goto LABEL009
Endif
If (Upper(STRING026) == "T") Then
AnsiPos 15, 23
STRING023 = INTEGER005
InputStr "@X0EInput Time amount you wish to Exchange, in increments of@X07 " + STRING023, STRING026, 4, 10, "9876543210", 32
AnsiPos 15, 23
InputStr "@X0EAre you sure you wish to exchange " + STRING026 + " Minutes@X07", STRING028, 4, 1, "YyNn", 32
If (Upper(STRING028) == "Y") Then
INTEGER027 = STRING026
If (INTEGER027 > INTEGER009) Then
AnsiPos 5, 23
InputStr "Value entered is more than Time saved. Hit enter to continue.", STRING026, 9, 1, "", 32
Goto LABEL009
Endif
If (INTEGER027 > STRING006) Then
AnsiPos 1, 23
InputStr "Value entered is more than Maximum Time allowed . Hit enter to continue.", STRING026, 9, 1, "", 32
Goto LABEL007
Endif
If (INTEGER027 < INTEGER005) Then
AnsiPos 1, 23
InputStr "Value entered is less than then minimum value of " + STRING023 + ". Hit enter to continue.", STRING026, 9, 1, "", 32
Goto LABEL007
Endif
DATE003 = Date()
INTEGER008 = INTEGER027
STRING016 = "TIME"
INTEGER009 = INTEGER009 - INTEGER008
INTEGER022 = INTEGER027 / INTEGER005
INTEGER022 = INTEGER022 * INTEGER006
DATE002 = Date()
INTEGER007 = INTEGER022
STRING015 = "BYTE"
INTEGER010 = INTEGER010 + INTEGER007
Gosub LABEL011
Endif
Goto LABEL009
Endif
Goto LABEL009
:LABEL010
STRING018 = U_Name()
STRING025 = PPEPath()
STRING025 = STRING025 + "DEPOSIT.DAT"
FOpen 2, STRING025, 0, 0
INTEGER026 = 0
INTEGER017 = 1
While (INTEGER026 == 0) Do
FGet 2, STRING019
If (STRING019 == "") Then
INTEGER026 = 1
Continue
Endif
INTEGER017 = INTEGER017 + 1
EndWhile
FClose 2
STRING025 = PPEPath()
STRING025 = STRING025 + "DEPOSIT.NDX"
FAppend 1, STRING025, 2, 0
INTEGER011 = INTEGER017
STRING023 = INTEGER011
FPutLn 1, STRING018, "/", STRING023
FClose 1
STRING025 = PPEPath()
STRING025 = STRING025 + "DEPOSIT.DAT"
FAppend 2, STRING025, 2, 0
STRING014 = U_Name()
DATE001 = "00-00-00"
DATE002 = "00-00-00"
DATE003 = "00-00-00"
INTEGER007 = 0
INTEGER008 = 0
STRING015 = "NA"
STRING016 = "NA"
INTEGER009 = 0
INTEGER010 = 0
INTEGER028 = 0
INTEGER029 = 0
FPutLn 2, STRING014
FPutLn 2, Date()
FPutLn 2, DATE002
FPutLn 2, DATE003
FPutLn 2, INTEGER007
FPutLn 2, INTEGER008
FPutLn 2, STRING015
FPutLn 2, STRING016
FPutLn 2, INTEGER009
FPutLn 2, INTEGER010
FPutLn 2, INTEGER028
FPutLn 2, INTEGER029
FClose 2
Return
:LABEL011
INTEGER012 = 0
Cls
STRING020 = PPEPath()
STRING020 = STRING020 + "USERMNU.PCB"
INTEGER014 = 1
TSTRING021(INTEGER014) = STRING020
Gosub LABEL012
DispFile TSTRING021(INTEGER014), 0
INTEGER016 = GetX()
INTEGER015 = GetY()
AnsiPos 46, 2
Print "@X71" + STRING017 + "@X07"
AnsiPos 17, 6
Print "@X70" + U_Name() + "@X07"
AnsiPos 66, 6
Print "@X70" + STRING001 + "@X07"
AnsiPos 24, 7
STRING023 = MinLeft()
Print "@X70" + STRING023 + "@X07"
AnsiPos 70, 7
Print "@X70" + STRING002 + "@X07"
AnsiPos 26, 8
Print "@X70" + STRING005 + "@X07"
AnsiPos 70, 8
STRING023 = U_BdlDay()
Print "@X70" + STRING023 + "@X07"
AnsiPos 26, 9
Print "@X70" + STRING004 + "@X07"
AnsiPos 70, 9
Print "@X70" + STRING003 + "@X07"
AnsiPos 25, 14
STRING010 = DATE002
Print "@X70" + STRING010 + "@X07"
AnsiPos 56, 14
STRING023 = INTEGER007
Print "@X70" + STRING023 + "@X07"
AnsiPos 72, 14
Print "@X70" + STRING015 + "@X07"
AnsiPos 25, 15
STRING011 = DATE003
Print "@X70" + STRING011 + "@X07"
AnsiPos 56, 15
STRING023 = INTEGER008
Print "@X70" + STRING023 + "@X07"
AnsiPos 72, 15
Print "@X70" + STRING016 + "@X07"
AnsiPos 25, 16
STRING023 = INTEGER009
Print "@X70" + STRING023 + "@X07"
AnsiPos 59, 16
STRING023 = INTEGER010
Print "@X70" + STRING023 + "@X07"
AnsiPos 25, 17
STRING009 = DATE001
Print "@X70" + STRING009 + "@X07"
AnsiPos 28, 18
STRING023 = STRING006
Print "@X70" + STRING023 + "@X07"
AnsiPos 61, 18
STRING023 = STRING007
Print "@X70" + STRING023 + "@X07"
AnsiPos INTEGER016, INTEGER015
Return
:LABEL012
If (Exist(TSTRING021(INTEGER014))) Return
Wait
PrintLn Space(17) + "*********************************************"
PrintLn Space(17) + "* *"
PrintLn Space(17) + "* FILE ERROR *"
PrintLn Space(17) + "* *"
PrintLn Space(17) + "* Please tell Sysop that the following file *"
PrintLn Space(17) + "* did not exist or is not in correct path : *"
PrintLn Space(17) + "* " + TSTRING021(INTEGER014) + Space(20) + "*"
PrintLn Space(17) + "*********************************************"
PrintLn Space(1)
Wait
Goto LABEL004
:LABEL013
INTEGER013 = 1
STRING025 = PPEPath()
STRING025 = STRING025 + "DEPOSIT.TMP"
DATE001 = Date()
FCreate 2, STRING025, 2, 0
FPutLn 2, INTEGER011
FPutLn 2, STRING014
FPutLn 2, DATE001
FPutLn 2, DATE002
FPutLn 2, DATE003
FPutLn 2, INTEGER007
FPutLn 2, INTEGER008
FPutLn 2, STRING015
FPutLn 2, STRING016
FPutLn 2, INTEGER009
FPutLn 2, INTEGER010
FPutLn 2, INTEGER028
FPutLn 2, INTEGER029
FClose 2
STRING020 = PPEPath()
STRING029 = PPEPath()
STRING020 = STRING020 + "DATAUPD.EXE"
STRING029 = STRING029
Shell 1, STRING027, STRING020, STRING029
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 7 Cls
; 2 Wait
; 117 Goto
; 238 Let
; 22 Print
; 11 PrintLn
; 76 If
; 2 DispFile
; 1 FCreate
; 7 FOpen
; 2 FAppend
; 19 FClose
; 21 FGet
; 26 FPutLn
; 5 GetUser
; 3 PutUser
; 2 AdjTime
; 5 Log
; 31 InputStr
; 16 Gosub
; 4 Return
; 1 CdChkOn
; 1 Delay
; 3 Shell
; 3 Stop
; 1 Bye
; 55 AnsiPos
; 2 WrUSys
; 2 RdUSys
;
;
; ■ Functions used :
;
; 2 -
; 5 *
; 5 /
; 111 +
; 16 -
; 44 ==
; 3 <>
; 9 <
; 2 <=
; 17 >
; 65 !
; 2 Len(
; 19 Upper()
; 11 Mid()
; 10 Space()
; 4 InStr()
; 11 Date()
; 4 U_Name()
; 1 U_Ful()
; 1 U_Fdl()
; 5 U_BdlDay()
; 13 PPEPath()
; 6 MinLeft()
; 2 GetEnv()
; 3 Exist()
; 1 GetX()
; 1 GetY()
;
;------------------------------------------------------------------------------
;
; Analysis flags : WAS
;
; W - Write user ■ 5
; Program writes a user record. Although this may be normal for a
; User Editor, it may also be a way to modify an account level.
; ■ Search for : PUTUSER
;
; A - Adjust online time remaining ■ 5
; Program modify the amount of online time remaining, this may
; be a way to bypass time limits
; ■ Search for : ADJTIME
;
; S - Shell to DOS ■ 5
; This may be normal if the PPE need to execute an external command,
; but may be actually anything... nasty (formating HD, rebooting,...)
; or usefull (sorting, maintenance,...). Check!
; ■ Search for : SHELL
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 10 While/EndWhile
; 55 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------